home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Super Shareware Collection
/
Super Shareware Collection.iso
/
os_2
/
pm22x333.zip
/
EXAMPLE0.ASM
< prev
next >
Wrap
Assembly Source File
|
1994-02-21
|
2KB
|
70 lines
; Simple GUS 669 player.
.386p
code32 segment para public use32
assume cs:code32, ds:code32
include pmode.inc
include gsp669.inc
include gs.inc
include kb.inc
include file.inc
include argc.inc
public _main
;▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒
; DATA
;▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒
errmsg0 db 'No GUS, no glory...$'
errmsg1 db 'Error opening file!!!$'
errmsg2 db 'SYNTAX: EXAMPLE0 <file>$'
;▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒
; CODE
;▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒
include pdosmsg.rt
;─────────────────────────────────────────────────────────────────────────────
exiterr:
push edx
call _resetkb
pop edx
call _putdosmsg
jmp _exit
;═════════════════════════════════════════════════════════════════════════════
_main:
sti
call _initkb
call _gs_find
jnc short mf0
call _gs_ask
mov edx,offset errmsg0
jc exiterr
mf0:
mov edx,_lomembase
xor al,al
call _cchekstr
mov edx,offset errmsg2
jc exiterr
mov edx,_lomembase
call _openfile
mov edx,offset errmsg1
jc exiterr
call _gsp669_init
mov eax,offset _readfile
mov edx,_lomembase
call _gsp669_load
call _closefile
call _gsp669_play
call _getch
call _gsp669_uninit
call _resetkb
jmp _exit
code32 ends
end